Attribute VB_Name = "mGlobal"
Public oXMLHTTP As New XMLHTTP
Public Function getNum(username As String, password As String, nXJ As Double, nCZK As Double) As Long
    oXMLHTTP.open "POST", "https://cmpay.10086.cn/OPRTPLGN/100116.dos", False
    oXMLHTTP.onreadystatechange = New cEvent
    oXMLHTTP.setRequestHeader "Referer", "https://cmpay.10086.cn/"
    oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    Dim sData As String
    sData = "LOG_TYP=1&USR_FLG=person&IS_PAGE_CODE=&USR_ID=" & username & "&USR_PWD=" & EncPwd(username, password)
    sData = URLEncoding(sData)
    oXMLHTTP.send sData
    
End Function

Sub main()
    
End Sub
